﻿Imports DTO
Imports DAO

Public Class KhachHangBUS
    Public Sub Them(ByVal khDTO As KhachHangDTO)
        Dim khDAO As New KhachHangDAO
        khDAO.Them(khDTO)
    End Sub

    Public Function TimTheoCMND(ByVal cmnd As String) As KhachHang
        Dim khDAO As New KhachHangDAO
        Return khDAO.TimTheoCMND(cmnd)
    End Function

    Public Sub CapNhatTienNo(ByVal khDTO As KhachHangDTO)
        Dim khDAO As New KhachHangDAO
        khDAO.CapNhatTienNo(khDTO)
    End Sub
End Class
